home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / Apps / Director / DATA.Z / Lists Lingo.dir / Scripts_110_deleteAt aLinearList.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  416 b   |  11 lines
  1. on mouseDown
  2.   global gDefaultLinearList
  3.   doButton()
  4.   set vDeletePosition to the text of member "Adding Linear DeleteAt Input Field 1"
  5.   set vDeletePosition to checkPosition(vDeletePosition, count(gDefaultLinearList))
  6.   if vDeletePosition <> EMPTY then
  7.     deleteAt(gDefaultLinearList, vDeletePosition)
  8.     set the text of member "Adding Linear DeleteAt Display Field 1" to string(gDefaultLinearList)
  9.   end if
  10. end
  11.